program arg;
var	argc:integer;
	argv: ^array[0..256] of string[256];
	i,j:shortint;
begin
i:=1;
while (i < argc) do begin
	writeln(i:2, '  ', argv[i]^);
	inc(i);
end;
writeln;
writeln('ugh, wtf');
end.
